home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / PSC Alert 267259202001.psc / frmALERT.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-09-19  |  3.1 KB  |  112 lines
  1. VERSION 5.00
  2. Begin VB.Form frmALERT 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   720
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   2190
  9.    BeginProperty Font 
  10.       Name            =   "Verdana"
  11.       Size            =   8.25
  12.       Charset         =   0
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    LinkTopic       =   "Form1"
  19.    ScaleHeight     =   720
  20.    ScaleWidth      =   2190
  21.    ShowInTaskbar   =   0   'False
  22.    Begin VB.Timer tmrUNLOAD 
  23.       Enabled         =   0   'False
  24.       Interval        =   5000
  25.       Left            =   1320
  26.       Top             =   240
  27.    End
  28.    Begin VB.Timer Timer 
  29.       Enabled         =   0   'False
  30.       Interval        =   40
  31.       Left            =   1680
  32.       Top             =   240
  33.    End
  34.    Begin VB.Label lblMSG 
  35.       Alignment       =   2  'Center
  36.       BackStyle       =   0  'Transparent
  37.       Caption         =   "New PSC project(s) have been posted"
  38.       ForeColor       =   &H0080FFFF&
  39.       Height          =   735
  40.       Left            =   120
  41.       TabIndex        =   0
  42.       Top             =   120
  43.       Width           =   1935
  44.    End
  45.    Begin VB.Image picBOX 
  46.       BorderStyle     =   1  'Fixed Single
  47.       Height          =   315
  48.       Left            =   1560
  49.       Picture         =   "frmALERT.frx":0000
  50.       Stretch         =   -1  'True
  51.       Top             =   480
  52.       Width           =   435
  53.    End
  54. Attribute VB_Name = "frmALERT"
  55. Attribute VB_GlobalNameSpace = False
  56. Attribute VB_Creatable = False
  57. Attribute VB_PredeclaredId = True
  58. Attribute VB_Exposed = False
  59. Option Explicit
  60. Public Reverse As Boolean
  61. Private Sub Form_Load()
  62.     On Error Resume Next
  63.     With Me
  64.         SetFormOnTop .hwnd, WINDOW_ONTOP
  65.         .Reverse = False
  66.         .Top = Screen.Height - GetTaskbarHeight
  67.         .Left = Screen.Width - .ScaleWidth - 500
  68.         .Height = 50
  69.         Me.Refresh
  70.         Me.Timer.Enabled = True
  71.     End With
  72. End Sub
  73. Private Sub Form_Resize()
  74.     On Error Resume Next
  75.     With Me
  76.         .picBOX.Move 0, 0, .ScaleWidth, .ScaleHeight
  77.     End With
  78. End Sub
  79. Private Sub lblMSG_Click()
  80.     On Error Resume Next
  81.     frmMAIN.GotoPSC
  82. End Sub
  83. Private Sub picBOX_Click()
  84.     On Error Resume Next
  85.     Unload Me
  86. End Sub
  87. Private Sub Timer_Timer()
  88.     On Error Resume Next
  89.     If Me.Reverse = False Then
  90.         Me.Height = Me.Height + 100
  91.         Me.Top = Screen.Height - GetTaskbarHeight - Me.Height
  92.         Me.picBOX.Refresh
  93.         If Me.Height >= 750 Then
  94.             Me.Timer.Enabled = False
  95.             Me.tmrUNLOAD.Enabled = True
  96.         End If
  97.     Else
  98.         Me.Height = Me.Height - 100
  99.         Me.Top = Screen.Height - GetTaskbarHeight - Me.Height
  100.         If Me.Height <= 50 Then
  101.             Me.Timer.Enabled = False
  102.             Me.tmrUNLOAD.Enabled = False
  103.             Unload Me
  104.         End If
  105.     End If
  106. End Sub
  107. Private Sub tmrUnload_Timer()
  108.     On Error Resume Next
  109.     Me.Reverse = True
  110.     Me.Timer.Enabled = True
  111. End Sub
  112.